home *** CD-ROM | disk | FTP | other *** search
/ Beyond Sanit-E 4 / Beyond Sanit-E 4 (Disk 2 of 2).adf / BS3Install.HD < prev    next >
Text File  |  1995-11-27  |  2KB  |  75 lines
  1. ; ** Beyond Sanit-e Installer. **
  2. ; ** (c) SLADE - PTK 1996. **
  3. ; ** This Installer is full of comment.  I have commented it this much **
  4. ; ** so you could use to as a tutorial to teach yourself.  Have Fun!!. **
  5.     
  6.  
  7. (complete 0)
  8. (set BS-E-dest
  9.     (askdir
  10.         (prompt "Please Select or create a drawer to install Beyond>Sanit-E<THREE:")
  11.             (help ask-dirhelp
  12.             "\n"
  13.             "This will ask you to give a destination drawer to "
  14.             "which this issue will be installed.\n")
  15.         (default @default-dest)
  16.     )
  17. )
  18.  
  19. (set @default-dest BS-E-dest)
  20.  
  21.  
  22. (complete 30)
  23. (
  24. (working "Installing Beyond>Sanit-E<III(DISK-1)...")
  25.     (copyfiles
  26.         (prompt "")
  27.         (help @copyfiles-help)
  28.         (source "Beyond>Sanit-E<III(DISK-1):")
  29.         (dest @default-dest)
  30.         (pattern "#?")
  31.         (infos)
  32.     )
  33. )
  34.  
  35. (complete 50)
  36. (
  37. (Working "installing Beyond>Sanit-E<III(DISK-2)...")
  38.     (copyfiles
  39.         (prompt "")
  40.         (help @copyfiles-help)
  41.         (source "Beyond>Sanit-E<III(DISK-2):")
  42.         (dest @default-dest)
  43.         (pattern "#?")
  44.         (INFOS)
  45.     )
  46. )
  47.  
  48.  
  49. (complete 70)
  50.  
  51. (startup "Beyond>Sanit-E<THREE:"
  52. (prompt "The following assigns, \n"
  53.      "ASSIGN BEYOND>SANIT-E<III(DISK-1):\n"
  54.      "ASSIGN BEYOND>SANIT-E<III(DISK-2): to " BS-E-dest ""
  55.      "\n"
  56.      "will be added to your user-startup")
  57. (help "This adds the needed assigns to your user-startup")
  58. (command "ASSIGN Beyond>Sanit-E<III(DISK-1): " BS-E-dest "\n")
  59. (command "ASSIGN BEYOND>sanit-E<III(DISK-2): " BS-E-dest "")
  60. )
  61.  
  62.  
  63.  
  64.  
  65. (complete 100)
  66. (exit)
  67.  
  68. ; ** I hope it was a good for you as it was for me.!!
  69. ; ** Cheers SLADE/PTK. 
  70.     
  71.     
  72.         
  73.  
  74.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
  75.